home *** CD-ROM | disk | FTP | other *** search
/ ASL 120: Business 2 / ASL 120: Business 2.iso / aslvol20 / disk1 / sprint.cc_ / sprint.cc
Text File  |  1994-08-29  |  17KB  |  341 lines
  1. !----------------------------------------------------------------------
  2. !   SPRINT.CCL
  3. !----------------------------------------------------------------------
  4.  
  5. -LABEL 0                { Label 0 } 
  6. Revision 1                      { Set the Revision Level }
  7. DsplyMsg Step 1: Initializing modem ...
  8. CanBtn   25                     { If cancel button - just exit }
  9. SetTries 0                      { Initialize Tries to 0 }
  10. ChrDelay 2                      { Initialize Character Delay }
  11. SerReset ~BAUD 0 8 1            { Set the Baud Rate }
  12. HSReset  0 0 17 19              { Reset }
  13. DsplyPic 1                      { Display Picture 1 }
  14. MdmSetup                        { Send out user's premodem init string }
  15.  
  16. -LABEL 1                { Label 1 }
  17. Flush                           { Clear the Inbound/Outbound Buffers }
  18. MatchStr 1 2 ~CMDESC            { Look for "+++" }
  19. MatchStr 2 2 ~CMDOK             { Look for "OK" }
  20.  
  21. MdmEsc                          { Get the modems attention }
  22. Wait 200                        { Pause for 2 seconds, minimum gap required }
  23.                                 { The Wait will then look at the MatchStr(s) }
  24.  
  25. -Label 2                { Label 2 }
  26. MatchStr 1 3   ~CMDOK           { Look for "OK" }
  27. MatchStr 2 33  ~CMDERR          { Look for "ERROR" }
  28.  
  29. MdmDisc                         { Disconnect }
  30.                                 { Jump to label #3 if we see 'OK' go by }
  31. Wait 200                        { wait for 'OK' from modem }
  32. Jump 33                         { Exit stage left...time out error on modem }
  33.  
  34. -LABEL 3                { Label 3 }
  35. DsplyMsg Step 2: Dialing ~PRFX~CLWT~FONE ...
  36.  
  37. MatchStr 1  43  ~NCTIMEOUT      { ALWAYS look for "TIMEOUT"    }
  38. MatchStr 2  42  ~NCCARRIER      { ALWAYS look for "NO CARRIER" }
  39. MatchStr 3  5   ~C300           { Look for "CONNECT 300"       }
  40. MatchStr 4  6   ~C1200          { Look for "CONNECT 1200"      }
  41. MatchStr 5  7   ~C2400          { Look for "CONNECT 2400"      }
  42. MatchStr 6  8   ~C4800          { Look for "CONNECT 4800"      }
  43. MatchStr 7  9   ~C9600          { Look for "CONNECT 9600"      }
  44. MatchStr 8  10  ~C14400         { Look for "CONNECT 14400"     }
  45. MatchStr 9  10  ~C19200         { Look for "CONNECT 19200"     }
  46. MatchStr 10 40  ~NCDIALTONE     { Look for "NO DIALTONE"       }
  47. MatchStr 11 30  ~NCANSWER       { Look for "NO ANSWER"         }
  48. MatchStr 12 41  ~NCVOICE        { Look for "VOICE"             }
  49. MatchStr 13 29  ~NCBUSY         { Look for "BUSY"              }
  50. MatchStr 14 33  ~CMDERR         { Look for "ERROR"             }
  51.  
  52. SetTries 0                      { Initialize Tries to 0 }
  53. CanBtn   24                     { If cancel button hit, Jump to Label 24 }
  54. MdmDial ~TONE ~PRFX~CLWT~FONE   { Dial the Number }
  55.                        
  56.                                 { Don't forget that the Wait searches the }
  57.                                 { MatchStr(s) just defined above. }
  58. Wait 4800                       { Wait for CONNECT msg from modem }
  59. Jump 31                         { Else hang up phone & exit }
  60.  
  61. -Label 5                { Label 5 }
  62. SerReset 300 0 8 1              { Set the CommPort Attributes }
  63. Jump 12                         { Jump to Label 12 }
  64.  
  65. -Label 6                { Label 6 }
  66. SerReset 1200 0 8 1             { Set the Commport Attributes }
  67. Jump 12                         { Jump to Label 12 }
  68.  
  69. -Label 7                { Label 7 }
  70. SerReset 2400 0 8 1             { Set the CommPort Attributes }
  71. Jump 12                         { Jump to Label 12 }
  72.  
  73. -Label 8                { Label 8 }
  74. SerReset 4800 0 8 1             { Set the CommPort Attributes }
  75. Jump 12                         { Jump to Label 12 } 
  76.  
  77. -Label 9                { Label 9 }
  78. SerReset 9600 0 8 1             { Set the CommPort Attributes }
  79. Jump 12                         { Jump to Label 12 }
  80.  
  81. -Label 10               { Label 10 }
  82. SerReset 19200 0 8 1            { Set the CommPort Attributes }
  83. Pause 30                        { Pause ... }
  84. Flush                           { Flush it out }
  85. DsplyPic 2                      { Display Picture 2 }
  86. DsplyMsg Step 3: Connecting at 14400 bps ...
  87. jump 13
  88.  
  89. -LABEL 12               { Label 12 }
  90. Pause 30                        { Pause ... }
  91. Flush                           { Flush it out }
  92. DsplyPic 2                      { Display Picture 2 }
  93. DsplyMsg Step 3: Connecting at ~BAUD bps ...
  94.         
  95. -LABEL 13               { Label 13 }
  96. Pause 30                        { Pause ... }
  97. ChrDelay 20                     { Set the Character Delay }
  98. Cond \13D\13                    { 300  baud }
  99. Cond \13D\13                    { 1200  baud }
  100. Cond @D\13                      { 2400  baud }
  101. Cond @D\13                      { 4800  baud }
  102. Cond @D\13                      { 9600  baud }
  103. Cond @D\13                      { 14400 baud }
  104. Cond @D\13                      { 19200 baud }
  105.  
  106. MatchStr 2 44 ~NCCARRIER        { ALWAYS look for "NO CARRIER" }
  107. MatchStr 3 14 TERMINAL=         { Look for "TERMINAL="  }
  108. MatchStr 4 14 TERMINAL =        { Look for "TERMINAL =" }
  109. MatchStr 5 31 \13\10 ?          { Look for "<CR><LF> ?"  }
  110. MatchStr 6 31 LOCAL             { Look for "LOCAL" }
  111. MatchStr 7 15 \13\10@           { Look for "<CR><LF>@"; no TERMINAL= prompt }
  112.  
  113. DsplyMsg Step 4: Requesting network attention ...
  114. Xmit ~SYNC                      { Send out SYNC }               
  115. Wait 600                        { Try to sync up to 4 times }
  116. IncTries                        { Increment Tries }
  117. IfTries 4 31                    { Have we reached 4 Tries ??? } 
  118. Jump 13                         { Jump to Label 13 }
  119.  
  120. -LABEL 14               { Label 14 }
  121. DsplyMsg Step 5: Talking to network ...
  122. ChrDelay 2                      { Set the Character Delay }
  123. MatchStr 3 15 \13\10@           { Look for "<CR><LF>@" }
  124. MatchStr 4 32 \13\10 ?          { Look for "<CR><LF> ?" }
  125. MatchStr 5 26 =                 { Look for "=" }
  126. Pause 20                        { Pause ... }
  127. Xmit D1\13                      { Send out String }
  128.  
  129. Wait 600                        { Wait seaches for MatchStr(s) Hits }
  130. Jump 32                         { No MatchStr Hits, jump to Label 32 }
  131.  
  132. -LABEL 15               { Label 15 }
  133. MatchStr  3 16 11:2             { Network says speed is   300 bps }
  134. MatchStr  4 16 11:3             { Network says speed is  1200 bps }
  135. MatchStr  5 16 11:12            { Network says speed is  2400 bps }
  136. MatchStr  6 17 11:13            { Network says speed is  4800 bps }
  137. MatchStr  7 17 11:14            { Network says speed is  9600 bps }
  138. MatchStr  8 17 11:15            { Network says speed is 19200 bps }
  139. MatchStr  9 17 11:16            { Network says speed is 48000 bps }
  140. MatchStr 10 17 11:17            { Network says speed is 56000 bps }
  141. Xmit par? 11\13                 { CCITT parameter 11 is speed }
  142.  
  143. Wait 600
  144.  
  145. -LABEL 16               { Label 16 }
  146. SetHiLo 0                       { Set HiLo to zero }
  147. Jump 22
  148.  
  149. -LABEL 17               { Label 17 }
  150. SetHiLo 1                       { Set HiLo to one}
  151. Jump 22
  152.  
  153.  
  154. -LABEL 22               { Label 22 }  
  155. DsplyMsg Step 6: Connecting to America Online ...
  156. MatchStr  3 23 CONNECTED         { Look for "CONNECTED" }
  157. MatchStr  4 32 \13\10 ?          { Look for "<CR><LF>?" }
  158. MatchStr  5 32 NOT RE            { Look for "NOT RESPONDING/REACHABLE" }
  159. MatchStr  6 32 AVAIL             { Look for "AVAIL" }
  160. MatchStr  7 32 REJECT            { Look for "REJECT" }
  161. MatchStr  8 32 LOCAL             { Look for "LOCAL" }
  162. MatchStr  9 32 ERROR             { Look for "ERROR" }
  163. MatchStr 10 32 DISCONNECT        { Look for "DISCONNECT" }
  164. MatchStr 11 32 NOT PERMIT        { Look for "NOT PERMIT" }
  165. MatchStr 12 32 CONGEST           { Look for "CONGESTED"/"CONGESTION" }
  166. MatchStr 13 32 NOT OPERATING     { Look for "NOT OPERATING" }
  167. MatchStr 14 32 BUSY              { Look for "BUSY" }
  168.  
  169. Pause 20                        { Pause ... }           
  170. Xmit C ~TLN1\13                 { Send out String }
  171. Wait 2250                       { Wait searches for MatchStr(s) Hits }
  172. Jump 32                         { No MatchStr Hits, jump to Label 32 }
  173.  
  174. -LABEL 23               { Label 23 }
  175. DsplyPic 3                      { Display Picture 3 }
  176. DsplyMsg Checking Password...   { Display Message }
  177. Exit 0                          { Exit out and return 0 }
  178.  
  179. -Label 24               { Label 24 }
  180. Hangup                          { Hangup }
  181. Exit -111                       { Exit out and return -111 }
  182.  
  183. -Label 25               { Label 25 }
  184. Exit -111                       { Exit out and return -111 }    
  185.  
  186. -Label 26               { Label 26 }
  187. Pause 30                        { Pause ...}
  188.  
  189. MatchStr 3 27 \13\10@           { Look for "<CR><LF>@"  }
  190. MatchStr 4 33 \13\10 ?          { Look for "<CR><LF>?"   }
  191. MatchStr 5 26 (AAA,LLL)=        { Look for "(AAA,LLL)="  }
  192. MatchStr 6 26 (AAA,LLL) =       { Look for "(AAA,LLL) =" }
  193.  
  194. Xmit ~TLN2\13                   { Send out String }
  195. Wait 2250                       { Wait searches for MatchStr(s) Hits }
  196. Jump 32                         { No Hits, jump to Label 32 }
  197.  
  198. -LABEL 27               { Label 27 }
  199. MatchStr  3 23 CONNECTED         { Look for "CONNECTED" }
  200. MatchStr  4 32 \13\10 ?          { Look for "<CR><LF>?" }
  201. MatchStr  5 32 NOT RE            { Look for "NOT RESPONDING"/"NOT REACHABLE" }
  202. MatchStr  6 32 AVAIL             { Look for "AVAIL" }
  203. MatchStr  7 32 REJECT            { Look for "REJECT" }
  204. MatchStr  8 32 LOCAL             { Look for "LOCAL" }
  205. MatchStr  9 32 ERROR             { Look for "ERROR" }
  206. MatchStr 10 32 DISCONNECT        { Look for "DISCONNECT" }
  207. MatchStr 11 32 NOT PERMIT        { Look for "NOT PERMIT" }
  208. MatchStr 12 32 CONGEST           { Look for "CONGESTED"/"CONGESTION" }
  209. MatchStr 13 32 NOT OPERATING     { Look for "NOT OPERATING" }
  210. MatchStr 14 32 BUSY              { Look for "BUSY" }
  211.  
  212. Pause 20                        { Pause ... }
  213. Xmit C ~TLN3\13                 { Send out String }
  214. Wait 2250                       { Wait searches for MatchStr(s) Hits }
  215. Jump 32                         { No Hits, jump to Label 32 }
  216.  
  217. !----------------------------------------------------------------------
  218. !                       Error Messages 
  219. !----------------------------------------------------------------------
  220.                         
  221. -Label 29               { Label 29 }
  222. Talert The number dialed is busy. Please take the following steps:\13
  223. Talert 1) Try signing on to America Online again.\13 
  224. Talert 2) From the WELCOME screen, click on SETUP\13     then EDIT LOCATION and record the numbers.\13
  225. Talert 3) Call ~ACUS and report the problem.\13
  226. Talert 4) To obtain an alternate Sprint access number\13     dial 1-800-473-7983.\13
  227. Jump 51                         
  228.  
  229. -Label 30               { Label 30 }
  230. Talert The number dialed is not answering. Please take the following steps:\13
  231. Talert 1) Try signing on to America Online again.\13 
  232. Talert 2) From the WELCOME screen, click on SETUP\13     then EDIT LOCATION and record the numbers.\13
  233. Talert 3) Call ~ACUS and report the problem.\13
  234. Talert 4) To obtain an alternate Sprint access number\13     dial 1-800-473-7983.\13
  235. Jump 51                         
  236.  
  237. -Label 31               { Label 31 }
  238. Talert The access company failed to respond.\13 \13 1) Please wait a few moments and try to connect to\13     America Online again.\13 
  239. Talert 2) Verify that the correct network is selected by calling\13     Sprint at 1-800-473-7983.\13
  240. Talert 3) If the problem persists please refer to the help text.\13     From the Welcome screen click on the SETUP \13     button, then click on the HELP & INFO button.\13 
  241. Jump 51
  242.  
  243. -Label 32               { Label 32 }
  244. Talert The final connection step to ~APPL did not complete.\13
  245. Talert Please wait a few moments and try again.\13
  246. Talert Prior to modifying any modem or system settings\13please refer to the help text. From the Welcome screen\13click on the SETUP button, then click on the HELP & INFO button.\13 
  247. Jump 51                            
  248.  
  249. -Label 33               { Label 33 }
  250. Talert America Online was unable to initialize your modem.\13Please take the following steps:\13 \13 1) Turn your modem off , then back on.\13 
  251. Talert 2) Click SETUP, then SETUP MODEM to verify your\13     modem selection.\13 \13 3) Try signing on to America Online again.\13
  252. Talert 4) Check modem cable connections.\13  
  253. Talert 5) If the problem persists please refer to the help text.\13     From the Welcome screen click on the SETUP button,\13     then click on the HELP & INFO button.\13 
  254. Jump 51 
  255.                         
  256. -Label 40               { Label 40 }
  257. Talert The modem has reported NO DIAL TONE. Please take the follow steps:\13
  258. Talert 1) Check all phone line connections.\13     The line from the wall must be connected to the\13     connector labeled:\13
  259. Talert \32     "LINE", "TELCO", "WALL" or "JACK".\13 \13     For additional information please refer to your\13     modem manual.\13
  260. Talert 2) Use a telephone to verify that there is a dial tone\13     on the line to the modem.\13
  261. Talert 3) Refer to the help text. From the Welcome screen\13     click on the SETUP button, then the HELP & INFO\13     button.\13
  262. Jump 51
  263.  
  264. -Label 41               { Label 41 }
  265. Talert The number dialed did not connect to the access\13company. Please take the following steps:\13 
  266. Talert 1) Click on SETUP then EDIT LOCATION to verify\13     if a "9," or "1," is needed.\13     
  267. Talert 2) Verify that the access number is valid by calling\13     Sprint at 1-800-473-7983. \13
  268. Talert 3) For additional information refer to the help text.\13     From the Welcome screen click on the SETUP button,\13     then click on the HELP & INFO button.\13 
  269. Jump 51
  270.  
  271. -Label 42               { Label 42 }
  272. Talert The modem was unable to get a carrier signal.\13Please take the following steps:\13 
  273. Talert 1) Check all phone line and cable connections\13     to the modem.\13
  274. Talert 2) Click on SETUP then EDIT LOCATION to verify\13     if a "9," or "1," is needed.\13     
  275. Talert 3) Verify that the access number is valid by calling\13     Sprint at 1-800-473-7983. \13
  276. Talert 4) Refer to the help text. From the Welcome screen\13     click on the SETUP button, then the HELP & INFO\13     button.\13
  277. Talert 5) If the problem persists, call ~APPL at\13     ~ACUS.\13
  278. Jump 51
  279.  
  280. -Label 43               { Label 43 }
  281. Talert The modem detected a TIMEOUT. Please take the following steps:\13
  282. Talert 1) Your modem may not be working properly.\13     Please try using your modem with another\13     telecommunications package to verify that\13     the modem is working.\13
  283. Talert 2) Verify that the access number is valid by calling\13     Sprint at 1-800-473-7983. \13
  284. Talert 3) For additional information refer to the help text.\13     From the Welcome screen click on the SETUP button,\13     then click on the HELP & INFO button.\13 
  285.  
  286. Jump 51
  287.  
  288. -Label 44               { Label 44 }
  289. Talert The connection to Sprint has been lost.\13
  290. Talert Please wait a few moments and try again.\13
  291. Jump 51                            
  292.  
  293. -Label 50               { Label 50 }
  294. Alert 52 \13If the problem persists, call ~APPL customer service at ~ACUS.
  295. Exit -1
  296.  
  297. -Label 51               { Label 51 }
  298. Alert 52 \13
  299. Exit -1
  300.  
  301. -Label 52               { Label 52 }
  302. Exit -1
  303.  
  304.  
  305. !----------------------------------------------------------------------
  306. !                       Hangup Sequence 
  307. !----------------------------------------------------------------------
  308.  
  309. *-Label 0               { Label 0 }
  310. *CanBtn 2                       { Cancel Button }
  311. *Flush                          { Flush }
  312.  
  313. *MatchStr 1 1 ~CMDOK            { Look for "OK" }
  314. *MatchStr 2 1 ~NCCARRIER        { Look for "NO CARRIER" }
  315.  
  316. *MdmEsc                         { Get the modems attention }
  317. *Wait 210                       { Look at the MatchStr(s) }
  318.  
  319. *MatchStr 1 1 ~CMDOK            { Look for "OK" }
  320. *MatchStr 2 2 ~NCCARRIER        { Look for "NO CARRIER" }
  321. *MatchStr 3 1 ~CMDESC           { Look for "+++" }
  322.  
  323. *MdmEsc                         { Send out the ESC String }
  324. *Wait 210                       { Look to a hit on MatchStr(s) }
  325.  
  326. *-Label 1               { Label 1 }
  327. *MatchStr 1 2 ~CMDESC           { Look for "+++" }
  328. *MatchStr 2 2 ~CMDOK            { Look for "OK" }
  329. *MatchStr 3 2 ~NCCARRIER        { Look for "NO CARRIER" }
  330.  
  331. *MdmDisc                        { Disconnect ... }
  332. *Wait 300                       { Look for a Hit on the MatchStr(s) }
  333.  
  334. *-Label 2               { Label 2 }
  335. *MdmRestore                     { Modem Restore }
  336. *Exit 0                         { Exit out and return 0 }       
  337.  
  338. ###                             { End of File Marker }
  339.  
  340.  
  341.